Leaflet map showing polygons
Wake_County_OS1 <- leaflet(OpenSpace) %>%
addProviderTiles(providers$Stamen.TonerLite) %>%
addPolygons(fillColor = "green", stroke = FALSE) %>%
addControl("Open Spaces in Wake County", position = "topright") %>%
addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
position = "bottomleft")
Wake_County_OS1
Highlight area
Wake_County_OS2 <- leaflet(OpenSpace) %>%
addProviderTiles(providers$CartoDB) %>%
addPolygons(fillColor = "green", stroke = FALSE,
highlightOptions = highlightOptions(fillColor = "darkgreen",
fillOpacity = 1)) %>%
addControl("Open Spaces in Wake County", position = "topright") %>%
addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
position = "bottomleft")
Wake_County_OS2
Highlight area with labels
OpenSpace$describe <-
paste(OpenSpace$name, "<br>",
prettyNum(OpenSpace$acres, digits = 2), " acres") %>%
lapply(htmltools::HTML)
Wake_County_OS3 <- leaflet(OpenSpace) %>%
addProviderTiles(providers$CartoDB.Voyager) %>%
addPolygons(fillColor = "green", stroke = FALSE,
highlightOptions = highlightOptions(fillColor = "darkgreen",
fillOpacity = 1),
label = ~describe) %>%
addControl("Open Spaces in Wake County", position = "topright") %>%
addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
position = "bottomleft")
Wake_County_OS3
WHAT DOESN’T THE NAME SHOW UP?
Leaflet map showing points
OpenSpace_pts <- st_centroid(OpenSpace)
Wake_County_OS4 <- leaflet(OpenSpace_pts) %>%
addProviderTiles(providers$OpenStreetMap) %>%
addMarkers(popup = ~describe) %>%
addControl("Open Spaces in Wake County", position = "topright") %>%
addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
position = "bottomleft")
Wake_County_OS4
Leaflet map showing circles
Wake_County_OS5 <- leaflet(OpenSpace_pts) %>%
addProviderTiles(providers$Stamen) %>%
addCircles(fillColor = "green", color = "green",
stroke = FALSE, radius = 250,
highlightOptions = highlightOptions(fillColor = "darkgreen",
fillOpacity = 1),
popup = ~describe) %>%
addControl("Open Spaces in Wake County", position = "topright") %>%
addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
position = "bottomleft")
Wake_County_OS5
Leaflet map showing circles, varied by sizes
Wake_County_OS6 <- leaflet(OpenSpace_pts) %>%
addProviderTiles(providers$Stamen) %>%
addCircles(fillColor = "green", color = "green",
stroke = FALSE, radius = ~acres,
highlightOptions = highlightOptions(fillColor = "darkgreen",
fillOpacity = 1),
popup = ~describe) %>%
addControl("Open Spaces in Wake County", position = "topright") %>%
addControl('<a href="https://data-ral.opendata.arcgis.com/datasets/Wake::open-space?geometry=-78.850%2C35.823%2C-78.664%2C35.872">Data source</a>',
position = "bottomleft")
Wake_County_OS6
saveWidget(Wake_County_OS1, file = "parks.html")
saveWidget(Wake_County_OS2, file = "parks.html")
saveWidget(Wake_County_OS3, file = "parks.html")
saveWidget(Wake_County_OS4, file = "parks.html")
saveWidget(Wake_County_OS5, file = "parks.html")
saveWidget(Wake_County_OS6, file = "parks.html")